home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / val.l < prev    next >
Text File  |  2007-02-28  |  272b  |  15 lines
  1. 9000 FUNC VAL(A$) CLOSED
  2. 9010 S:=0
  3. 9020 Y:="." IN A$
  4. 9030 L:=LEN(A$)
  5. 9040 IF Y<>0 THEN Y:=L-Y+1
  6. 9050 FOR X:=1 TO L DO
  7. 9060 IF A$(X) IN "1234567890" THEN
  8. 9070 S:=S+(ORD(A$(X))-48)*(10^(L-X-Y))
  9. 9080 ELSE 
  10. 9090 Y:=Y-1
  11. 9100 ENDIF 
  12. 9110 ENDFOR X
  13. 9120 RETURN S
  14. 9130 ENDFUNC VAL
  15.